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Preface 


The TIMEX/Sinclair 1000 and Sinclair ZX-81 are the 
most popular computers in the world. As of this writing, 
more of these personal computers have been sold than any 
other computer in history. 

The very light weight and highly portable design of 
Sinclair's computer, coupled with the powerful version of 
the BASIC programming language it uses, have placed it at 
the forefront of the new wave of computers for home, school 
and office. 

Anything but a toy, the hardware configuration of the 
T/S 1000 and ZX-81, and its versatile system software, make 
it a highly useful tool in the business environment and the 
classroom as well as for practical jobs, around the home. 
And, most of all, it is fun for playing games! 

Software programs are what make computers do work 
for you. This book of software is written for those 
newcomers and beginners, as well as advanced novices and 
student programmers, who would like to have hours of fun 
playing new and different games on their T/S 1000 or ZX-81. 
By typing in these programs and running them, it is hoped 
this book will guide and instruct and provide insights into 
the many ways the BASIC language in Sinclair's personal 
computers can be put to use. 

This book is a companion to four other volumes in our 
series of books for the TIMEX/Sinclair computers: 101 
TIMEX/Sinclair ZX-81 Programming Tips & Tricks, 37 
TIMEX/Sinclair ZX-81 Programs for Home, School & Office, 
Practical TIMEX/Sinclair Computer Programs for 
Beginners, and the TIMEX/Sinclair Computer Program 
Writing Workbook. 

—Edward Page 


Introduction 


Computer games! The rage of the Century. 
Everybody is playing them everywhere. And now you can 
play them on your own TIMEX/Sinclair computer. 

There is a great need for practical software for per- 
sonal computers but there's also a need for fun and 
games. When you want to relax and learn programming, 
type in a game program and your learning will become 
fun. This book includes two dozen programs designed to 
let you get more fun from your TIMEX/Sinclair 1000, 
Sinclair ZX-81, MicroAce, TIMEX/Sinclair 2000 and 
Sinclair Spectrum. As you have that fun you'll be learning 
how programs are written and how they run. 

The T/S 1000 and the ZX-81 are the same computer. 
Similarly, the T/S 2000 and the Spectrum are the same 
computer. The main difference between the 1000 and the 
ZX-81 is іп memory. The 1000 comes with 2К (2000 storage 
locations) while the ZX-81 has only 1K (one thousand 
memory spaces). Similar narrow differences separate the 
2000 from the Spectrum. 

All of the programs in this book have been 
thoroughly tested on a T/S 1000. Each works perfectly. 
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Due to memory capacity differences, all will run in the T/S 
1000's 2K memory capacity but some will not run in the 
ZX-81's 1K memory capacity. Add an outboard memory 
pack to the ZX-81 and it will hold and run all of these pro- 
grams. All of these programs will fit individually into the 
2000/Spectrum memory capacity which is greater than 
that in the T/S 1000 or ZX-81. 

This book is designed to be used by newcomers and 
beginners, as well as advanced novices and student pro- 
grammers, who can learn from typing these programs into 
the computer. Use this book to stimulate your thinking 
about how to approach various software-writing prob- 
lems. Use it to get good ideas for new and different 
games, or other practical projects of interest to yourself. 

In preparing this book, we made the assumption you 
know how to set up your computer for use. You know how 
to connect the cable between the TV switchbox and the 
computer. You know how to plug the power supply into a 
wall socket and attach the power cord to the computer. 
You know how to type on the flat keyboard, locate the 
shift key, and obtain the various “levels” of functions on 
the multiple-function keys. 

If you don't have these areas of skills down pat, yet, 
please check your owner's manual. The manuals supplied 
by Sinclair and TIMEX are thorough and it will be to your 
benefit to review their contents before starting with these 
games. 

You do not have to be a programmer to use the soft- 
ware in this book. Just type in the programs as you find 
them here and run them. They will work. 


Learning programming 

A major part of your learning from this book will 
come as you go through the work of typing in these 
programs and making sure you have each line typed cor- 
rectly. 

If a syntax error, or other error, occurs, go back and 
make sure your line, as typed, matches what we have 
printed in this book. Our program lines are believed to be 
exactly correct. As mentioned, all have been thoroughly 
tested on the T/S 1000 and found to work properly. 

If, after typing in a program line as we have it, you get 


an error message from the computer, check the handy 
reference list of error messages in the Appendix to this 
book. You also will find a convenient list of BASIC words, 
as used in the TIMEX/Sinclair computers in the Appendix 
at the rear of this book. 

If you get an error message, most likely you will find 
a typographical error in your typing of the program into 
the computer. However, should you find a typo which we 
may have made in this book, please let the author know. 
Send a postcard or letter to the author in care of ARCsoft 
Publishers, P.O. Box 132, Woodsboro, MD 21798 USA. 
The author will appreciate being able to make any 
necessary corrections to future editions. 

Try all of the game programs in this book. They're 
great fun to run. And they are especially designed to be 
short so you won't have to spend hours typing them in. 


REMarks 

As you read through the two dozen programs in this 
book, you will notice few REM, or remarks, statements. 
The author's training in writing BASIC language computer 
programs included an emphasis on brevity and saving 
memory space. A sharp editing pencil was in order then 
and it still is! 

With only one or two kilobytes (1K or 2K) of memory 
available in the ZX-81 and T/S 1000, you need to create 
lean programs. There is no room for fat—and this is 
good. Programmers who have learned on such systems 
will make better professionals because they know how to 
write efficient “code.” 


REMarks and explanations in software are out. Hon- 
ing, fine-tuning and waste trimming are in. Use of coding 
form program-writing worksheets is encouraged. Such 
program-writing worksheets for the TIMEX/Sinclair com- 
puters can be found in plentiful quantity in the 
TIMEX/Sinclair Computer Program Writing Workbook 
published by ARCsoft Publishers. The objective always is 
to make the most efficient use of available memory. 

Always remember: even though they may be headed 
toward the same goal, no two programmers will write 
exactly the same list of BASIC instructions or program 
lines from scratch. 


As you load these two dozen programs into your 
TIMEX/Sinclair personal computer, one at a time, you will 
make modifications to suit your personal needs and in- 
terests. For instance, exact wording of PRINT statements 
can be changed. Or, two or more short programs can be 
combined into one grand scheme. Your application may 
vary. 
If you want to load more than one of these programs 
into your computer at the same time, please remember 
that you will have to use different sets of line numbers for 
different programs. Two programs can't occupy the same 
set of line numbers in the computer at the same time! 


Random numbers 

The computer's ability to generate random numbers 
is exciting to watch. And such random numbers are need- 
ed for most computer-game programs today. We use lots 
of random-number generators in the games in this book. 

For your convenience, we have included an Appendix 
of various random-number generating programs. We also 
include a practical games application: a program to roll 
dice. 

In addition, in the Appendix at the back of this book 
you will find a convenient game timer program which you 
may find useful in timing various events. 

The Appendix also includes TIMEX/Sinclair BASIC 
words and error messages. 

By the way, personal computer users today generally 
mix the two words ENTER and RETURN together and use 
them to mean the same thing. In either case, when you 
see RETURN or ENTER in this book, it means use the 
ENTER key on the right-hand side of the T/S 1000 and 
ZX-81 keyboard. 

These games programs will run on any machine 
which can be programmed in BASIC. However, to run on a 
computer other than the T/S 1000 or ZX-81 or MicroAce, 
you will have to make minor modifications to some pro- 
gram lines. Graphics commands, especially, will differ on 
non-Sinclair computers. 

Refer to the owner's manual which came with your 
non-Sinclair computer and compare its version of BASIC 
with the Sinclair BASIC as you find it in the Appendix to 
this book. 
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Also, if you изе a computer other than the T/S 1000 or 
ZX-81 or MicroAce, such things as line numbering, logical 
tests, multiplication symbols, print statements, and other 
instructions may differ. 


Report codes 

Sinclair refers to its error messages as report codes. 
We refer to them as error messages, sometimes, because 
that's how most programmers today would refer to them. 
Report codes and error messages are the same thing in 
this book. 

Many of the programs in this book will continue to 
run until you press the BREAK key. In those instances, 
you must command them off via the BREAK key. You may 
stop any run, at any time, by pressing the BREAK key at 
the lower right-hand side of the keyboard. 

The author would like to have your suggestions for 
changes in future editions of this work, or for other books 
in this series for the TIMEX/Sinclair personal computer. 
This very book of game programs, in fact, came about 
following numerous requests from readers of earlier 
books in our series for the TIMEX/Sinclair computers. 

The author may be addressed in care of ARCsoft 
Publishers. 

Good programming! 
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Saturn Death 


Lights are dimmed to a dull red on the flight deck of 
the USS Intrepid. Men in your command chatter quietly 
as their handheld terminal boxes twinkle with vital data. 
The forward view screen has been showing gigantic 
Saturn as a tiny ball for days. Now the planet is a giant 
balloon with the Sun receding from the starboard screens. 

Despite the ever-imminent danger in the hostile 
environment of space, the trip out from Earth Command 
has been uneventful. Suddenly, the red bullseye flashes 
on your terminal box. The console under your left elbow 
brightens and a low buzz emits fromits loudspeaker. The 
ship's main computer sounds an alarm. Life-threatening 
danger is approaching rapidly. With only seconds to 
spare, it's you and the computer against the challenge of 
your life. Death in the frozen void of space lurks nearby. 


Program Listing 


100 CLEAR 

110 PRINT "RED ALERT" 

130 PRINT "*******&k" 

150 PRINT "EARLY WARNING REPORT", 
"DANGER APPROACHING" 

170 RAND 

180 GOSUB 1400 

200 GOSUB 900 

210 PRINT 

220 IF W-2 THEN GOTO 400 

230 PRINT "ASTEROID CLOSING FAST" 

240 GOSUB 900 


ТЕ W=1 THEN GOTO 310 

PRINT,,"NO TIME",,"WE ARE HIT" 
GOTO 1000 

PRINT "THERE IS TIME",,"BLAST IT" 
GOSUB 900 

IF W=1 THEN GOTO 360 

GOTO 1200 

CLS 

PRINT, , "MISSED" 

GOTO 310 

PRINT "ALIEN DEATH PROBE COMING FAST" 
GOSUB 900 

IF W=2 THEN GOTO 585 

GOSUB 1400 

PRINT,, "ТОО LATE",,"HE FIRED TORPEDOS” 
GOSUB 900 

IF W=1 THEN GOTO 580 

PRINT "WE ARE HIT" 

GOSUB 900 

IF W=1 THEN GOTO 610 

PRINT, , "MUCH DAMAGE",,"SHIP EXPLODING" 
GOTO 1000 

CLS 

PRINT "MISSED" 

PRINT, , "STANDBY TO FIRE" 

GOSUB 900 

GOTO 630 

PRINT "DAMAGE","WE HAVE POWER" 
GOTO 585 

IF W=1 THEN GOTO 690 

PRINT, , "HIT" 

GOSUB 900 

IF W=2 THEN GOTO 710 

PRINT "DAMAGE BUT HE HAS POWER", "WILL FIRE 
AGAIN" 

GOTO 410 

PRINT, , "MISSED" 

GOTO 460 

GOTO 1200 

LET W=INT (3*RND) 

IF W<1 OR W>2 THEN GOTO 900 
RETURN 


13 


1000 
1010 
1020 
1030 
1040 
1200 
1210 
1220 
1230 
1240 
1245 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1400 
1410 
1420 
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GOSUB 1400 

CLS 

PRINT "THIS IS THE END" 
LET A$="TOO BAD" 


GOTO 1240 
GOSUB 1400 
CLS 


PRINT "IT IS DESTROYED","ALL ARE SAFE" 
LET AS="YOU WIN" 

FOR L-1 TO 15 

PRINT 

NEXT L 

PRINT TAB 7;A$ 

FOR N-1 TO 12 

LET X-20-(10*COS (N/6*PI)) 
LET Y=10+(10*SIN (N/6*PI)) 
PLOT X,Y 

NEXT N 

GOTO 1320 

FOR L-1 TO 30 

NEXT L 

RETURN 


Memory Tester | 


Listen closely. I’m only going to repeat this once: 

Apples in the teagarden. 

What'd he say? 

Apples in the teagarden. 

| thought that's what he said. 

Now you can rate the holding power of your very own 
memory, all in the privacy of your own home or office. 
Simply say how much of a challenge you think you can 
withstand and such a test will be devised. 

Think you know it all? Try this. 


Program Listing 


10 PRINT "MEMORY TEST" 
20 PRINT "****kxxkkxx" 
30 LET Wg 

40 LET AS="ACT" 

50 LET B$="RADIO" 

60 LET C$-"DOG" 

70 LET D$="LAMP" 

80 LET E$="BREAD" 

90 LET F$="LOG" 

100 LET G$-"POCKET" 

110 LET H$-"TABLE" 

120 LET I$="COLOR" 

130 LET J$-"TRAIN" 

140 LET K$="BOOK" 
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LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 


LS="FLOWER" 
MS="DRAIN" 
NS="SUPPER" 
OS="PLAN" 
PS="CAT" 
0$="EVENT" 
RS="ToY" 
SS="CLOCK" 
T$-"SHIP" 
x=g 

05-А5 
V$=B$ 
W$=C$ 
x$=D$ 


GOSUB 600 


LET 
LET 
LET 
LET 


US=ES 
V$=F$ 
ws=G$ 
Х5-Н5 


GOSUB 600 


LET 
LET 
LET 
LET 


0$=1$ 
V$=J$ 
WS=KS 
XS=LS 


GOSUB 600 


LET 
LET 
LET 
LET 


U$=M$ 
VS=NS 
W$=0$ 
X$=P$ 


GOSUB 600 


LET 
LET 
LET 
LET 


05-05 
уз-в5 
W$=S$ 
x$=T$ 


GOSUB 600 


CLS 


PRINT "YOU GOT ";W;" RIGHT","IN " 


;Х;" TRIES" 


PRINT W + + + * * £ + + + + + + + + RARA k k kkkkk"U 


STOP 


PRINT US,VS,WS,XS$ 


PAUSE 120 
CLS 
PRINT "WHAT WERE THOSE WORDS?" 
PRINT "FIRST WORD:", 
GOSUB 1200 
IF Y$=U$ THEN GOSUB 1300 
IF Y$<>U$ THEN GOSUB 1400 
IF Y$<>U$ THEN GOTO 800 
PRINT "SECOND WORD:", 
GOSUB 1200 
IF Y$=V$ THEN GOSUB 1300 
IF Y$<>V$ THEN GOSUB 1400 
IF Y$<>V$ THEN GOTO 900 
PRINT "THIRD WORD:", 
GOSUB 1200 
IF Y$=W$ THEN GOSUB 1300 
IF Y$<>W$ THEN GOSUB 1400 
IF Y$<>W$ THEN GOTO 1000 


1100 PRINT "FOURTH WORD:" 
1110 GOSUB 1200 

1120 IF Y$=X$ THEN GOSUB 1300 
1130 IF Y$<>X$ THEN GOSUB 1400 
1140 IF Y$<>X$ THEN GOTO 1100 
1150 CLS 

1160 PRINT "WATCH CLOSELY" 
1170 PAUSE 120 

1180 CLS 

1190 RETURN 

1200 INPUT Y$ 


PRINT Ү$ 

LET X-X*l 

RETURN 

PRINT "CORRECT" 

PAUSE 180 

LET W=W+1 

CLS 

RETURN 

PRINT "WRONG",, "TRY AGAIN" 
RETURN 
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The Black Pearl 


A 


Loves have been lost for it. Families have been 
broken by it. Men have killed for it: the infamous Black 
Pearl from Won Quon Luk temple in the Orient. 

One night in 1946, in a fabulous apartment high 
above Fifth Avenue in New York City, a svelte blonde in 
black velvet wore a string of 10 superb pearls. At least, 
nine superb and one ultimate. Nine whites andthe black 
beauty! 

The string broke during a lights-out-at-midnight and 
were lost. Until now, their whereabouts has been a 
mystery. Until now, that is, because here they are in this 
leather pouch. Reach in. Take one. Hope you get the 
Black Pearl! 


Program Listing 


10 CLEAR 

20 LET C-f 

30 LET D-f 

40 CLS 

45 PRINT w £ + £ £ +£ £ * + + ХЕ k + + + k k + N 


50 PRINT "* THE BLACK PEARL = 

55 PRINT "*ARAARARARARERA RARA" 

60 PRINT 

65 RAND 

70 PRINT "MY POUCH HAS TEN PEARLS" 
80 PRINT "NINE WHITES AND..." 

90 PRINT "THE BLACK BEAUTY" 


PRINT 
PRINT "EACH HAS A TINY GOLD NUMBER" 
PRINT "FROM ONE TO ТЕМ" 

PRINT "ETCHED ON ITS SURFACE" 
PRINT 

PRINT "TAKE A PEARL AND" 

PRINT "TELL ME ITS NUMBER" 

PRINT 

PRINT "IF IT 1S THE BLACK PEARL," 
PRINT "YOU WIN" 

PRINT 

PRINT "WHICH NUMBER DO YOU HAVE?" 
LET X=INT (11*RND) 

IF X<1 OR X>10 THEN GOTO 220 
INPUT A 

LET C=C+1 

IF Х<>А THEN СОТО 300 

LET D=D+1 

GOTO 800 

CLS 

PRINT "SORRY",,"THAT ONE IS WHITE” 
PRINT "PLEASE TRY A DIFFERENT PEARL" 
INPUT B 

LET C=C+1 

IF X<>B THEN GOTO 300 

GOTO 260 

CLS 

PRINT "THATS IT",,"YOU HAVE IT" 
PRINT "THE BLACK PEARL IS NUMBER ";X 
FOR L-1 TO 5 

PRINT 

NEXT L 

PRINT "WANT ТО PLAY AGAIN?" 

INPUT ES 

IF ES="YES" THEN GOTO 40 

IF ES="NO" THEN GOTO 930 

PRINT "PLEASE ANSWER YES OR NO" 
GOTO 870 

LET F=INT ((D/C)*1000) 

CLS 


PRINT "ОКАУ",, "YOUR FINAL SCORE IS ";F 


STOP 
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Barrel of Apples 


Albert is a fat kid, about as round as that barrel of 
apples. Oh, that's Albert's barrel by the way. He carts it 
around with him. Has a new game he likes to play. And 
play. And play. It's enough to drive you nuts! 

Go ahead. Say hello. 


Program Listing 


10 PRINT 
20 PRINT 
30 INPUT 
40 CLS 

50 PRINT 
60 PRINT 
70 PRINT 
80 PRINT 


"HI",,"I AM ALBERT" 
"WHATS YOUR NAME?" 
L$ 


"HI," ;1,5 
"WANT TO PLAY A GAME?" 


"PRESS ANY KEY" 


90 IF INKEYS="" THEN GOTO 90 
100 LET B=g 
105 LET p=g 
110 LET О=@ 
115 LET Х=@ 


120 GOSUB 
130 CLS 

140 GOSUB 
150 PRINT 
160 PRINT 
170 PRINT 


1100 


1000 


"THIS BARREL HOLDS LOTS OP 


APPLES” 


180 PRINT 


"IN FACT, ";L$;", UP TO 100 


APPLES" 


PRINT 

PRINT "CAN YOU GUESS HOW MANY" 
PRINT "ITS HOLDING RIGHT NOW?" 
INPUT P 


IF P<1 OR P>100 THEN СОТО 220 

LET В-В+1 

IF X=P THEN GOTO 300 

GOTO 500 

LET Q=Q+1 

IF ΒΞ] THEN GOTO 450 

CLS 

PRINT "YOU СОТ IT",,"CONGRATULATIONS" 


PRINT 
PRINT "WANT TO PLAY AGAIN?" 
INPUT RS 

IF RS="YES" THEN GOTO 400 

GOTO 800 

LET X=@ 

LET P=@ 

GOTO 120 

CLS 

PRINT "WOW",, "RIGHT THE FIRST TIME" 
PRINT "YOU QUALIFY AS A GENIUS" 
GOTO 340 

IF P<X THEN GOTO 600 

IF P>X THEN GOTO 700 

CLS 

PRINT "WRONG", , "THERE ARE MORE" 
PRINT 

PRINT "PICK A LARGER NUMBER" 
INPUT P 

LET B=B+1 

GOTO 240 

CLS 

PRINT "SORRY",,"TOO MANY" 

PRINT 

PRINT "GO FOR A SMALLER NUMBER" 
INPUT P 

LET B=B+1 

GOTO 240 

CLS 
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PRINT "OKAY, ";L$ 

PRINT "YOU HAD ";Q;" RIGHT" 
PRINT "IN ";B;" TRIES" 

LET C=INT ((0/B)*1000) 


PRINT 

PRINT "YOU BATTED ";C 
PRINT 

PRINT "BYE BYE, ";LS 
STOP 

FOR H=17 TO 27 


FOR Y=43 TO 30 STEP -1 

PLOT H,Y 

NEXT Y 

NEXT H 

RETURN 

RAND 

LET X=INT (101*RND) 

IF Х<1 OR X>100 THEN GOTO 1110 
RETURN 


Lost Safari 


Jim Buck, the famous safari guide, has been deep in 
the bush of darkest Africa, leading a party of big game 
hunters for days when word arrives at his London 
headquarters that he is lost. The telegram doesn't say 
what country on the African continent he is in. Nor does it 
tell what big game he is hunting. You'll have to apply your 
best deductive reasoning and come up with his prey and 
his location if you are to save his life and the lives of three 
men and two women on safari with Big Jim. 

But the jungle is full of traps. Once you have discovered 
which animal he is hunting you'll know whether heis up- 
country or down-country or in the back country. But the 
jungle is full of traps. Having settled all that, it’s still not 
clear whether you can fly in, in time to save the party from 
certain death at the hands of a tribe of giant pygmies. If 
only you can fly in in the right number of days, all will be 
saved. Hurry! 


Program Listing 


10 CLEAR 

20 PRINT "LOST SAFARI" 
30 PRINT "**XAXARAXAXA" 
40 RAND 

50 LET B$="RHINO" 

60 LET C$-"GAZELLE" 

70 LET D$="HIPPO" 
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LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 


ES="LION" 
FS="ZEBRA" 
GS="TIGER" 
H$-"KENYA" 
IS="CONGO" 
JS=NIGERIA" 
KS="SUDAN" 
L$="TOGO" 
M$-"LESOTHO" 
Al-INT(7*RND) 

IF А1<1 OR Al>6 THEN СОТО 
LET A2-INT(7*RND) 
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IF A2<1 OR A2>6 THEN СОТО 190 


LET A3-INT(7*RND) 


IF 


A3«1 
Al-1 
А1=2 
Al=3 
Al=4 
Al=5 
Al=6 
A2=1 
A2=2 
A2=3 
A2=4 
A2=5 
A2=6 


PRINT 


PRINT 
PRINT 


PRINT 


PRINT 


PRINT 


PRINT 


CLS 
PRINT "WHAT ARE THEY HUNTING?" 


PRINT B$,C$,D$,E$,F$,G$ 
INPUT 0$ 


OR A3>6 THEN GOTO 210 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 


LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 


55-В5 
55-С5 
S$-D$ 
SS=ES 
SS=FS 
S$=G$ 
TS=HS 
TS=I$ 
T$=J$ 
TS=KS 
TS=L$ 
TS=MS 


"THE SAFARI IS LOST" 
"SOMEWHERE IN" 


H$,1I$,J$,KS,L$,M$ 


IF O$=S$ THEN GOTO 580 
GOSUB 1000 


"TO PLAY PRESS A KEY" 
ΤΕ INKEY$="" THEN GOTO 440 


570 
580 
610 
630 
650 
680 
700 
710 
740 
750 
770 
790 
810 
820 
840 
850 
860 
870 
880 
890 
900 


910 
1000 
1010 
1020 
1200 
1210 
1220 


GOTO 480 

GOSUB 1200 

PRINT "NOW FIND THEM" 

PRINT "ARE THEY IN" 

PRINT H$S,I$,J$,KS,LS,MS 

INPUT RS 

IF RS=TS THEN GOTO 750 

GOSUB 1000 

GOTO 640 

GOSUB 1200 

PRINT "NOW RUSH TO SAVE THEM" 
PRINT "HOW MANY DAYS (1-6)" 
PRINT "WILL IT TAKE TO GET THERE?" 
INPUT Z 


IF Z—A3 THEN СОТО 880 

GOSUB 1000 

PRINT “TRY A DIFFERENT NUMBER" 
GOTO 790 

GOSUB 1200 

PRINT "YOU SAVED THE SAFARI" 


PRINT "HUNTING ";S$;" IN ";T$ 
7" IN ";A3;" DAYS" 

STOP 

CLS 

PRINT "WRONG, TRY AGAIN" 
RETURN 

CLS 

PRINT "CORRECT" 

RETURN 
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Scrambled Egg 


Ttsae. Let's see. Oh, | know. State? Right. Try another. 
Nidlsa. Good grief. That's too tough. Give me an easier 
one. Okay. Fo. Well, that's too easy. What is it? Of, of 
course. By the way, what is Nidlsa. Island. Oh! 

Try another. 


Program Listing 
10 PRINT LE 2 k k k k 2 2 2 k 2 2 2 k k ΤΠ 


20 PRINT "* SCRAMBLED EGG *" 
30 PRINT w + + kk k kk k k 2 k 2 k 2 k k t 


100 PRINT "DO YOU WANT THE","HARD, 
HARDER, OR HARDEST WORDS?" 

110 INPUT Ү$ 

120 IF Y$="HARDEST" THEN GOTO 8000 

130 IF Y$="HARDER" THEN GOTO 8500 

140 IF Y$="HARD" THEN GOTO 9000 

150 GOTO 110 

200 CLS 

210 PRINT "HERE IS THE ";Y$;" WORD" 

220 GOSUB 2*500 

230 PRINT 


PRINT Х$ 

PRINT 

PRINT "WHAT IS THE WORD?", 
INPUT Z$ 

LET Т=Т+1 

PRINT Z$ 

IF Z$-L$ THEN GOTO 400 
CLS 

PRINT "WRONG",,"TRY AGAIN" 
LET W=W+1 

GOTO 230 

CLS 

PRINT "CORRECT" 

LET C=C+1 

PRINT 


PRINT "WANT TO PLAY AGAIN?" 


INPUT Z$ 

CLS 

IF ZS="YES" THEN GOTO 100 
IF Z$="NO" THEN GOTO 9500 
PRINT "ANSWER YES OR NO" 
GOTO 430 

LET LS="EGG" 

LET XS="GEG" 

RETURN 

LET LS="LOG" 

LET X$="GLO" 

RETURN 

LET LS="BEE" 

LET XS="EBE" 

RETURN 

LET LS="TRY" 

LET XS="RYT" 

RETURN 

LET L$-"RADIO" 

LET X$-"DIROA" 

RETURN 

LET L$="COURT" 

LET X$-"RUCOT" 

RETURN 

LET L$="DREAM" 
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3600 
3700 
4000 
4100 
4200 
4500 
4600 
4700 
5000 
5100 
5200 
5500 
5600 
5700 
6000 
6100 
6200 
8000 
8010 
8020 
8500 
8510 
8520 
9000 
9010 
9020 
9500 
9510 
9520 
9530 
9540 
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LET X$="RAMED" 
RETURN 

LET L$-"LIVER" 
LET X$="RIVEL" 
RETURN 

LET L$="COMPUTE" 
LET X$-"PEMCUTO" 
RETURN 

LET L$="MANSION" 
LET X$-"SOMNNAI" 
RETURN 

LET L$="VEHICLE" 
LET X$="ELCHIVE" 
RETURN 

LET L$-"ILLEGAL" 
LET X$-"GALELIL" 
RETURN 


LET Z-INT (13*RND) 

IF Z«9 OR Z>12 THEN GOTO 8000 
GOTO 200 

LET Z-INT (9*RND) 

IF Z«5 OR Z>8 THEN GOTO 8500 

GOTO 200 

LET Z-INT (5*RND) 

IF 7<1 OR Z>4 THEN СОТО 9000 


GOTO 200 

PRINT "OKAY" 

PRINT w + + kk * + kk kk +k k k l 
PRINT "YOU HAD ";C;" RIGHT" 
PRINT "AND";W;" WRONG" 
PRINT "IN ";T;" TRIES" 


Old West Shootout 


You are Marshall Matt Dillon. Billy the Kid is in town. 
You can't avoid your duty: the kid must be arrested. It's 
high noon! 

You must plug the gunfighter before he guns you 
down. But where is he hiding? He could be down in the 
corral or up on the hotel roof. He might have slipped into 
the stable or down behind the bar in the saloon. He could 
be inside the house or outside in the wagon. He might be 
behind the railroad station or in the doctor's office. And, 
worst of all, he may have brought a friend! 

Follow the clues from your handy computer, fastest 
figurer in the West. Just don't stop any bullets. 


Program Listing 


10 CLEAR 

12 RAND 

13 LET P=g 

14 LET M-g 

15 LET 7-0) 

16 LET O-f 

17 LET W=g 

20 LET AS="CORRAL" 
25 LET B$-"HOTEL" 

30 LET C$="STABLE" 
35 LET D$="SALOON" 
40 LET ES="HOUSE" 
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LET FS="WAGON" 

LET GS="STATION" 

LET HS="STORE" 

LET IS="OFFICE" 

PRINT "SHOOT THE GUNFIGHTER" 
PRINT "BEFORE HE SHOOTS YOU" 
PRINT 

PRINT "HE MAY BE IN THE" 
PRINT A$,B$,C$,D$,ES,F$,G$,H$,I$ 
PRINT 

PRINT "WHERE?" 

INPUT K$ 

PRINT "WHERE ARE YOU?", 
INPUT L$ 

CLS 

PRINT "YOU SHOOT" 

PRINT "FROM THE ";L$ 

PRINT "INTO THE ";K$ 

PAUSE 120 

GOSUB 1000 

CLS 

PRINT "BANG" 

IF K$=ZS THEN GOTO 300 

IF 15-75 THEN GOTO 600 
PRINT "YOU MISSED HIM" 

LET P=P+1 

LET W=W+1 

LET Z=Z+1 

IF W>2 THEN СОТО 700 

LET V=S 

PRINT "TRY AGAIN" 

GOTO 95 

CLS 

PRINT "YOU GOT HIM",,"IN THE ";Z$ 
LET M=M+1 

PRINT 

PRINT 

PRINT "OOPS, ANOTHER BAD GUY" 
PRINT "WANNA FIGHT AGAIN?" 
LET W= 

INPUT NS 


CLS 

IF N$="YES” THEN GOTO 85 

PRINT "YOU MISSED ";Р;" SHOTS” 
PRINT "YOU WON ";M;" LOST ";O 
STOP 

PRINT "OOPS,",,"HE IS IN THE ";L$ 
PRINT "HE SHOT YOU" 

LET O=0+1 

GOTO 315 

PRINT "HE GOT YOU",,"YOU ARE DEAD" 
LET О=О+1 

PRINT "HE WAS IN THE ";Z$ 

GOTO 315 


LET S-INT (10*RND) 

IF S-1 THEN LET Z$=A$ 
IF 5-2 THEN LET Z$=B$ 
IF S-3 THEN LET Z$-C$ 
IF S-4 THEN LET Z$-D$ 
IF 5-5 THEN LET 75-Е5 
IF 5-6 THEN LET Z$=FS$ 
IF S=7 THEN LET Z$=G$ 
IF S=8 THEN LET Z$=H$ 
IF S=9 THEN LET Z$=I$ 
IF 5<1 OR S>9 THEN GOTO 1000 
RETURN 
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The world's oldest game transformed into а 
futuristic setting: computer dice. The computer rolls the 
dice, notes your point, cheers your wins and com- 
miserates after your losses. 

Snake eyes. Lucky seven. The roll. The point. Just be 
sure not to crap out! 


Program Listing 


10 RAND 

15 LET Е=@ 

20 LET D=g 

25 LET C=g 

30 PRINT w + + + + + + + * * oe 

A0 PRINT "* CRAPS *" 

50 PRINT w" k £ # £ k k + * * t 

60 PRINT 

70 PRINT "TO ROLL DICE PRESS ANY KEY" 
80 IF INKEYS="" THEN GOTO 80 
90 GOSUB 600 

100 LET С=С+1 
110 CLS 

120 PRINT МЕЖЖЖЖ XAXXX" 

130 PRINT "* ";X;" * * ";y;" #2" 
140 PRINT "kikit KKKKKE 

150 LET Z=X+Y 
160 IF C=1 THEN LET B=Z 

170 IF С=1 THEN СОТО 190 

180 IF Z=B THEN СОТО 400 
190 IF Z=7 THEN GOTO 250 


ТЕ Z=2 THEN GOTO 300 
PRINT "YOUR POINT IS ";B 

GOTO 60 

IF C-1 THEN PRINT "HOORAY", , "LUCKY 
SEVEN" 

IF C=1 THEN PRINT "YOU WIN" 

IF C=1 THEN LET D=D+1 

IF С=1 THEN СОТО 500 

PRINT "TOUGH LUCK", , "YOU CRAPPED OUT" 
PRINT "YOU LOSE" 

LET E=E+1 

GOTO 500 

PRINT "SORRY",,"SNAKE EYES" 
GOTO 275 

PRINT "POINT" 

PRINT "YOU GOT ";B 

PRINT "YOU WIN" 

LET D=D+1 

PRINT 

PRINT "YOU ROLLED ";C;" TIMES" 
PRINT 

PRINT "WANT TO ROLL AGAIN?" 
PRINT 

INPUT FS 

IF F$="YES" THEN GOTO 25 

PRINT "OKAY" 

PRINT "YOU WON ";D;" AND LOST ";E 
STOP 

LET X=INT (7*RND) 

IF Х<1 OR Х>6 THEN СОТО 600 
LET Y=INT (7*RND) 

IF Ү<1 OR Y>6 THEN СОТО 620 
RETURN 
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' Decision 
Maker 


Stumped by a toughie? Got one too hot to handle 
alone? Need help with major decisions? When there is no 
other way to decide, punch up this executive decision 
maker and get the answer: YES or NO. In 200 sample runs 
we produced 107 YES and 93 NO answers. 


Program Listing 


10 CLS 

20 LET X=100*RND 

30 IF X>49 THEN PRINT "YES” 
40 IF X«49 THEN PRINT "МО" 
50 IF INKEYS-"" THEN GOTO 50 
60 GOTO 10 


In this superior edition, a choice of replies is possible. 


Program Listing 


10 DIM D$(8,16) 

20 RAND 

100 LET DS(1)="YES” 

110 LET D$(2)="FIRE SOMEONE” 
120 LET DS(3)="PASS THE BUCK” 
130 LET DS(4)="MAYBE" 

140 LET D$(5)="REORGANIZE" 
150 LET D$(6)-"NO" 


Buried Treasure 


The sun burns the beach sand as it glares across 
mirrored depths. An old salt, one leg gone below the 
knee, stumps down to the water's edge and glares back. 
A parrot chatters on his shoulder. The old man tosses a 
bottle into the ocean. 

Hours later you awaken to find the tide moistening 
your toes and the bottle bumping against your leg. It's 
got paper inside. 

Pulling the cork you find a map. A treasure map! The 
scrawl shows a quiet Cay with a peaceful finger of land 
extending into the sea. On the map is a giant X, marking 
the spot where the treasure is buried. Then, the only 
remaining question is: Where? 


Program Listing 


l0 PRINT "YOU SEARCH FOR" 
20 PRINT "*ARARRARARAARARARAA" 


30 PRINT "* BURIED TREASURE *" 
40 PRINT UEEXEZIIIIIIIIIIITIIAT. 
50 PRINT 

60 PRINT "PRESS ANY KEY TO PLAY" 
65 LET W-f 

70 IF INKEY$="" THEN СОТО 70 
80 LET X=INT (7*RND) 

90 IF X«1 OR X>6 THEN СОТО 80 
100 CLS 

110 PRINT "* ж" 
120 PRINT " * x " 
130 PRINT " * " 
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PRINT "+ * " 


PRINT "* жи 
PRINT 
PRINT "ON YOUR MAP, 


PRINT 

GOTO 950 

PRINT "BUT WHERE 15 
PRINT "IN THE GARDEN 
INPUT D$ 

IF D$-"YES" THEN GOT 


X MARKS THE SPOT" 


IT?" 
э" 


O 400 


PRINT "SUNK IN THE POND?" 


INPUT FS 


IF FS="YES" THEN GOTO 500 
PRINT "BESIDE THE TREE?" 


INPUT H$ 


IF HS="YES" THEN GOTO 600 


PRINT "BENEATH THE B 
INPUT 1$ 
IF IS="YES" THEN GOT 


OULDER?" 


О 700 


PRINT "INSIDE THE CAVE?" 


INPUT J$ 


IF JS="YES" THEN GOTO 800 
PRINT "UNDER THE SHED?" 


INPUT K$ 


IF K$ ="YES" THEN GOTO 900 


GOTO 950 

IF X=1 THEN GOTO 980 
GOSUB 1000 

GOTO 240 

IF X=2 THEN GOTO 980 
GOSUB 1000 

GOTO 260 

IF X=3 THEN GOTO 980 
GOSUB 1000 

GOTO 280 

IF X=4 THEN GOTO 980 
GOSUB 1000 

GOTO 300 


IF X=5 THEN GOTO 980 
GOSUB 1000 
GOTO 320 


900 


ТЕ Х=6 ТНЕМ СОТО 980 


910 со SUB 1000 


920 
950 
955 


960 


GOTO 200 

PRINT "IT HAS TO BE” 

PRINT "IN THE GARDEN",,"SUNK IN THE 
POND", "BESIDE THE TREE" 

PRINT "BENEATH THE BOULDER", "INSIDE 
THE CAVE",,"OR UNDER THE SHED" 
PRINT 

GOTO 200 

PRINT "YOU FOUND THE CHEST", "WITH 
$1 MILLION IN JEWELS" 

PRINT 

PRINT "YOU HAD ";W;" WRONG GUESSES" 
PRINT "THATS GOOD" 

STOP 

CLS 

PRINT "NO, NOT THERE",,"TRY AGAIN" 
LET W=W+1 

RETURN 
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Murder 
In the Mansion 


The wind howls around gnarled tree trunks and 
through heather across the moor. A dog barks in the 
distance. Inside the stately Victorian mansion, the upstairs 
maid weeps noisily into her handkerchief. The Baron has 
just been found dead in a pool of blood. 

As Scotland Yard's chief inspector for the district, 
you've just been called in on the case. Besides the Pretty 
Maid, you find a motley cast of characters including the 
Stately Butler and the Old Nanny, 

The case is perplexing. You're not sure how the old 
boy was done in, or even where he actually was killed. 
The identity of the killer is not immediately apparent. 

The first major decision comes as you sort through 
the clues, trying to deduce where the Baron was killed. 
Satisfying that one, you search for the weapon. Once you 
know where and how he was murdered, the only remaining 
question is: Whodunit? 


Program Listing 


10 CLEAR 

20 LET AS="BUTLER" 

30 LET BS="MAID" 

40 LET C$="NANNY” 

60 PRINT "A WINTER EVE," 

70 PRINT "A COUNTRY MANSION," 
80 PRINT "THE BARON IS DEAD." 


PRINT "**kkkkkkxkkkkkkkxkkkn 


PRINT "OUR CAST:" 

PRINT "THE STATELY ";A$ 
PRINT "THE PRETTY ";B$ 
PRINT "THE OLD ";С5 

LET E$="HAIRPIN" 

LET F$="GUN" 

LET G$="POKER" 

LET IS="PANTRY" 

LET J$="BEDROOM" 

LET KS="LIBRARY" 

RAND 

LET M=INT (4*RND) 

IF М<1 OR M>3 THEN GOTO 240 
LET N=INT (4*RND) 

IF М<1 OR N>3 THEN GOTO 260 
LET R=INT (4*RND) 

IF Е<1 OR R>3 THEN GOTO 280 
PRINT 

PRINT "PRESS A KEY TO PLAY" 
IF INKEYS="" THEN GOTO 340 
CLS 

PRINT "WHICH ROOM2" 

PRINT 1$,J$,KS 

INPUT VS 

IF M=1 THEN LET S$="PANTRY" 
IF M=2 THEN LET S$="BEDROOM" 
IF M=3 THEN LET S$="LIBRARY" 
IF V$=S$ THEN СОТО 530 
PRINT "CLUE:" 

IF S$=I$ THEN PRINT "FOOD" 
IF S$=J$ THEN PRINT "PILLOW" 
IF S$=K$ THEN PRINT "BOOKS" 
GOTO 360 

CLS 

PRINT "CORRECT. IN THE ";V$ 
PRINT "BUT WHICH WEAPON" 
PRINT E$,F$,G$ 

INPUT WS 

IF N=1 THEN LET T$="HAIRPIN" 
IF N=2 THEN LET TS="GUN” 
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640 
660 
665 
670 
680 
690 
700 
720 
730 
740 
750 
760 
770 
780 
790 
810 
820 
830 
840 
860 
865 
870 
880 
890 
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IF N=3 THEN LET T$="POKER" 

IF WS=TS THEN GOTO 720 

PRINT "CLUE:" 

IF TS=ES THEN PRINT "COIFFURE" 
IF TS=FS THEN PRINT "BULLETS" 
IF T$-G$ THEN PRINT "LOGS" 
GOTO 550 

CLS 

PRINT "THE ";T$;" IS CORRECT" 
PRINT "BUT WHODUNIT?" 

PRINT AS,BS$,C$ 

INPUT X$ 

IF R-1 THEN LET US="BUTLER" 

IF R-2 THEN LET U$="MAID" 

IF R-3 THEN LET U$="NANNY" 

IF XS=U$ THEN СОТО 865 

IF US-AS THEN PRINT "HE SERVES" 
IF US=BS THEN PRINT "SHE DUSTS" 
IF US=CS THEN PRINT "LOVES KIDS" 
GOTO 740 

CLS 

PRINT "YOU SOLVED THE CRIME" 
PRINT "THE ";U$;" DID IT" 
PRINT "IN THE ";S$;" WITH THE ";T$ 


Wood Chuck Chuck 


How much wood would a woodchuck chuck, if a 
woodchuck could chuck wood. How much wood could a 
woodchuck chuck, if а woodchuck would chuck wood? 
That's like asking how many angels can siton the head of 
a pin. Or, more appropriately, how many trees in the 
forest. 

But,wait. This little game takes that old ditty seriously. 
How much wood could Mr. Chuck throw around if he 
wanted to? Try it. If you're good enough, you'll end up in 
the Woodchuck Hall of Fame. 


Program Listing 


10 


20 


PRINT "HOW MUCH WOOD", ,"COULD A 
WOODCHUCK CHUCK" 

PRINT "IF A WOODCHUCK",, "COULD 
CHUCK WOOD?" 

PRINT ΣΣ ΣΣ ΣΣ ΣΣΣΣΣΣΣΣΣΣΣΣΣΤΙ 
PRINT "ТОО MUCHA" 

LET С=@ 

LET Е-й 

LET G=9 

PRINT "PRESS A KEY TO PLAY" 

IF INKEYS="" THEN GOTO 90 

GOSUB 1000 

CLS 
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PRINT "HOW MANY LOGS",,"CAN THE 
WOODCHUCK CHUCK?" 


INPUT B 

LET C=C+1 

IF B<>X THEN СОТО 400 

LET G-G*l 

PRINT "HOORAY",,"YOU GOT IT" 


IF C=1 THEN PRINT "ON THE FIRST TRY" 
IF С<>1 THEN PRINT "IN ";C;” TRIES" 
PRINT 
LET E=E+C 
LET C-f 
PRINT "WANT TO PLAY AGAIN?" 
INPUT D$ 
IF DS="YES" THEN СОТО 90 
GOTO 800 
IF C-1 THEN GOTO 425 
IF C-2 THEN GOTO 440 
IF C-3 THEN GOTO 455 
IF C-4 THEN GOTO 470 
IF C>4 THEN СОТО 500 
PRINT "YOUR FIRST TRY IS" 
IF B«X THEN GOTO 480 
GOTO 490 
PRINT "YOUR SECOND GUESS IS" 
IF B«X THEN GOTO 480 
GOTO 490 
PRINT "THIRD GUESS" 
IF B«X THEN GOTO 480 
GOTO 490 
PRINT "FOURTH TRY",,"YOUR LAST CHANCE" 
IF B«X THEN GOTO 600 
GOTO 630 
PRINT "TOO LITTLE" 
GOTO 495 
PRINT "TOO MUCH" 
PRINT "TRY AGAIN" 
GOTO 120 
PRINT "SORRY",,"YOU ONLY GET 4 
CHANCES" 
PRINT "THE WOODCHUCK COULD" 


510 
520 
530 
540 
600 
610 
630 
640 
800 
805 
810 
815 
820 
830 
900 
1000 
1010 
1020 
1030 


PRINT "CHUCK ";X;" LOGS" 
PRINT "YOU LOSE",,"TOUGH LUCK" 
PRINT 

GOTO 260 

PRINT "TOO LITTLE AGAIN" 

GOTO 500 

PRINT "STILL TOO HIGH" 

GOTO 500 

CLS 

PRINT "YOU HAD ";G;" RIGHT" 
PRINT "IN ";E;" TRIES" 

LET H-INT (G/E)*1000) 

PRINT 

PRINT "YOU ARE BATTING ";H 
STOP 

RAND 

LET X-INT (11*RND) 

IF Х<1 OR X>10 THEN СОТО 1010 
RETURN 
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John's as sharp as a tack. Judy is as pretty as a 
picture. Fred's as dumb as an ox. This handy-dandy 
people describer provides hours of fun as it continually 
thinks up new and different ways to insult, flatter, affront, 
praise, cut, compliment your friends, relatives, even your 
boss! 


Program Listing 


10 RAND 

20 DIM М5(10,5) 

30 DIM N$(10,6) 
100 LET M$(1)-"FAT" 
110 LET MS(2)="DIRTY" 
120 LET M$(3)="BAD" 
130 LET M$(4)="SAD" 
140 LET M$(5)="GREEN" 
150 LET M$(6)="UGLY" 
160 LET M$(7)-"DULL" 
170 LET M$(8)="TACKY" 
180 LET M$(9)-"WEAK" 
190 LET M$(10)-"DUMB" 
200 LET N$(1)="TREE” 
210 LET N$(2)-"PIG" 
220 LET N$(3)-"TURKEY" 
230 LET N$(4)="DOG" 
240 LET N$(5)-"ROOKIE" 
250 LET N$(6)-"SIN" 


260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 


LET NS(7)="PLUG" 

LET NS(8)="BULL" 

LET N$(9)="WORM" 

LET N$(10)-"Ox" 

PRINT "WHOM ARE WE DESCRIBING?" 
INPUT BS 

CLS 

LET T=INT(11*RND) 

IF Т<1 THEN СОТО 330 

PRINT B$;" IS ";MS(T);" AS A ";NS(T) 
PRINT 

GOTO 330 
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Parameters 


What! Another high-low numbers game? Yep. It's the 
all-time most favorite computer game. The difference 
here is we've turned it into one of our three-minute fast- 
loaders so you won't be bored after school. Or in the back 
seat of the limo while your driver pedals you to Old Work 
Twenty. 

Any rules? Sure. The computer picks a secret 
number. You try to guess it. The computer gives you too- 
high or too-low clues and keeps score. Same old game. 
Yep. But perfect during a boring lecture. 


Program Listing 


10 RAND 

20 LET Т=@ 

30 LET R=INT (101*RND) 

40 IF R<1 OR R>100 THEN GOTO 20 

50 PRINT "GUESS MY SECRET NUMBER”, "(1 
TO 100)" 

60 INPUT B 

70 LET T=T+1 

80 IF BSR THEN GOTO 200 

90 IF B<R THEN GOTO 300 

100 PRINT 

110 PRINT "YES",,R;" IS THE NUMBER" 

120 PRINT "IT TOOK YOU ";T;" TRIES" 

130 PAUSE 240 


140 
150 
200 
210 
220 
230 
300 
310 
320 


CLS 

GOTO 20 

CLS 

PRINT B;" IS TOO HIGH" 
PRINT "GUESS AGAIN" 
GOTO 60 

CLS 

PRINT B;" IS TOO LOW" 
GOTO 220 


Program Listing 


CLS 

CLEAR 

LET Q$-"*" 

GOTO 130 

LET N=INT(101*RND) 

PRINT "GUESS THE NUMBER" 
INPUT G 

IF G>N THEN PRINT "TOO HIGH" 
IF С<М THEN PRINT "TOO LOW" 
IF G<>N THEN GOTO 60 

PRINT "RIGHT" 

PRINT "LETS GO AGAIN" 

FOR L=1 TO 16 

PRINT Q$; 

NEXT L 

PRINT 

GOTO 50 
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Smart Computer 


This game is so quick you can work it in while your 
secretary is away sharpening her pencil. It's more or less 
the reverse of the old favorite High-Low Number bit. In 
this rendition, you come up with the secret three-digit 
number and the computer guesses it! 

In old-fashioned High-Low, the computer could keep 
you guessing for hours. Here, the computer asks one lit- 
tle old question and...bingo! lt has the correct answer in 
an instant. 

By the way, this program can make you look like the 
company genius at the next office party. Ask your friends 
to pick a secret number and ask them the one question 
the computer asks you. You'll get the right answer from 
your Computer in a flash. 

The mystery number has to be a three-digit number 
with all digits the same. 


Program Listing 


10 CLS 

20 PRINT "SELECT A THREE-DIGIT NUMBER” 

30 PRINT "WITH ALL THREE DIGITS THE 
SAME" 

40 PRINT 

50 PRINT "ADD THE THREE DIGITS TOGETHER” 

60 PRINT "WHAT 15 THE SUM” 

65 PRINT "OF THE THREE DIGITS ?" 


INPUT М 

CLS 

LET 0=37*N 

PRINT 

PRINT "YOUR ORIGINAL NUMBER WAS ";Q 
PRINT 

PRINT 

GOTO 20 
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Coin Toss 


Here's a handy way to settle arguments. Toss a coin. 
Only this time, let the computer do the work! 

Type in the program. Run it. The computer will report 
heads or tails after each toss. 

For а new toss, press any key on your computer's 
keyboard. 

Line 20clears the screen. A random number is gen- 
erated at line30. 


Lines 60 and 70 accomplish the restart when 
you press any key. 


Program Listing 


10 RAND 

20 CLS 

30 LET R=RND 

40 IF R«.5 THEN PRINT "HEADS” 
50 IF R>.5 THEN PRINT "TAILS" 
60 IF INKEYS="" THEN GOTO 60 
70 GOTO 20 
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Memory Tester II 


Suppose | pick a number out of the air. Say, 5. You 


can remember that, right? Or 73. Or 841. But, just how big 
a number can you see briefly and remember? This pro- 
gram throws ever-increasingly-larger random numbers at 
you and asks you to remember them. And it keeps score. 
What's your memory's upper limit? 


Program Listing 


LET W=g 

LET R=9 

LET 7-1 

LET S-INT(100*RND) 
LET N-INT(S*Z) 
PRINT "REMEMBER ";N 


PAUSE 100 
CLS 
IF W=3 THEN PRINT "FORGET IT" 


IF W=3 THEN СОТО 145 
PRINT "WHAT WAS IT 2" 
INPUT S 

IF S<>N THEN PRINT "WRONG" 
IF S<>N THEN LET W=WN+1 
IF S«»N THEN GOTO 80 
PRINT "RIGHT" 

LET R=R+1 

LET W=g 

LET 2-11%2 

PRINT R;" RIGHT SO FAR" 
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140 СОТО 30 

145 PRINT "YOU HAD ";R;" RIGHT" 
150 PRINT "LETS START OVER” 

155 GOTO 10 
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Klingon Killer 


BLEEP. BLEEP. BLEEP. The warning alarm is 
screaming. A Klingon raider has been spotted. It is at- 
tacking. You swing your laser gun and fire. Will you kil 
him? Damage him? Miss him? If you miss, will he get 
you? 

This is another in the series of quickie games, just 
the right length for keying into your Computer 
over lunch at your desk at work or in school. Beware: 
You're liable to become so excited you'll miss the end of 
your lunch hour! 


Program Listing 


10 LET V=g 

20 LET W-f 

30 RAND ж TOM 
40 PRINT W + + + + + +k + + NARA AXAXAkkx" 
50 PRINT "* RAIDERS ATTACKING *" 
60 PRINT m + + + + * kk kc kk kk kkkkkkkkkn 
70 PRINT ,,"STANDBY TO FIRE LASERS” 
80 PRINT ,, 

90 INPUT Q 

100 LET S=INT (6*RND) 

110 IF S=1 THEN GOTO 200 

120 IF S=2 THEN GOTO 300 

130 IF S=3 THEN GOTO 400 

140 IF S=4 THEN GOTO 500 

150 IF S=5 THEN GOTO 600 

160 GOTO 100 

200 CLS 

210 PRINT "YOU DAMAGED HIM" 
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"HOW MANY SHOTS WILL YOU FIRE?" 


220 
230 
300 
310 
320 
400 
410 
420 
430 
440 
450 
500 
510 
520 
530 
540 
600 
610 
620 
630 
640 
650 
700 
710 
720 
730 
740 
750 
760 
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* 


PRINT 

GOTO 70 

CLS 

PRINT "YOU MISSED" 
GOTO 220 

CLS 


PRINT "YOU MISSED BUT" 
PRINT "HE FIRED AT YOU" 
PRINT 


PRINT "HE MISSED" 
GOTO 220 

CLS 

PRINT "YOU GOT HIM" 


PRINT "HE IS DEAD IN SPACE" 
LET W=W+1 

GOTO 700 

CLS 

PRINT "OH NO" 

PRINT "HE GOT YOU" 

PRINT "EL ZAPPO" 

PRINT "FINIS" 

LET V=V+1 

PRINT 

PRINT 

PRINT "SCORE:" 

PRINT "KLINGONS ";V,"YOU ";W 
PAUSE 240 
CLS 

GOTO 40 
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Super Slot-O 


Oh, those evil slot machines! They're just popping 
up everywhere. Even inside myTIMEX Computer. 

Like any good slot machine, when you pull the han- 
dleit displays some objects. Ifyou get no 
two alike, you lose. If you get two alike among the three 
objects, you win small. If all three are the same, you win 
big. 

One difference in our Slot-O game, the display is en- 
tirely at random. No one pushes a secret button under the 
table to make certain items pop up. 

The “handle” is the keyboard. To “pull” it, just press 
any key. The display objects are small boxes. If you 
get two alike, the computer tells you that you have won 
$5. If you get three alike, the computer tells you that you 
have won $10. 

Get out your funny-money from that old Monopoly 
game, gather up your friends, and let's have some fun. 

Lets start our Fun-N-Games with instruction 
on how to simulate a slot machine on the screen of your 
TIMEX! 

As with all the programs in this book, simply 
type this one in and RUN it. The TIMEX T/S1000 will 
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display, on your video screen, the name of this program 
and some simple instructions. 


To simulate pulling the slot machine's lever arm, 


press any key on the keyboard. 


By the way, be very careful in typing in the program. 
Аз you key in programs throughout this book, be 


sure you include all blank spaces where called for. 


Program Listing 


PRINT "PLAY SUPER SLOT-O" 
FOR L=1 TO 17 

PRINT "*"; 

NEXT L 

PRINT 

GOSUB 800 

GOSUB 900 


RAND 

IF INKEYS="" THEN GOTO 90 

CLS 

GOSUB 500 

LET A=X 

GOSUB 500 

LET B=X 

GOSUB 500 

LET C=X 

IF A=B THEN LET P=1 

IF B=C THEN LET Q=1 

IF C=A THEN LET R=1 

PRINT 

PRINT CHRS A;" ";CHR$ B;" ";CHRS С 
IF P+O+R=1 THEN LET S=1 

IF P+Q+R>1 THEN LET T=1 

IF P+O+R<1 THEN LET U-1 

PRINT 

PAUSE 60 

IF S THEN PRINT “TWO OF A KIND" 
IF S THEN PRINT “YOU WIN $5” 

IF Т THEN PRINT “THREE OF A KIND” 
IF T THEN PRINT "YOU WIN $10" 

IF U THEN PRINT "SORRY, THERE IS 
NO MATCH" 


370 ТЕ U THEN PRINT "YOU DO NOT WIN ANY 
MONEY” 

380 PRINT 

390 GOTO 20 

500 LET X=2*RND 

510 IF X«1 THEN GOTO 600 

520 GOTO 700 

600 LET X=INT(8*RND) 

610 IF X<2 THEN GOTO 600 

620 RETURN 


700 LET X=INT(133*RND) 

710 TF X<128 THEN GOTO 700 
720 RETURN 

800 PRINT "PRESS ANY KEY ТО" 
810 PRINT "PULL THE SLOT MACHINE HANDLE" 
820 RETURN 

900 LET P=g 

910 LET O=g 

920 LET R=g 

930 LET S=g 

940 LET T-g 

950 LET U-g 

960 RETURN 
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Draw Straws 


Drawing straws is one of man's oldest decision makers. 
Several straws are broken off to various lengths. The 
length of all straws is concealed and each person draws a 
straw. The person drawing the shortest straw “wins.” 
That is, he is selected by the luck of the draw. 

Now your TIMEXComputer can provide a fast and easy 
drawing where no straws are available. lt does all the work 
for you by electronically assigning straw lengths. You can 
decide beforehand whether longest straw or shortest 
straw wins. 

The program is set up for eight persons to draw. The 
computer first asks their names. Then it secretly makes a 
random number assignment to each. That number feeds 
the computer graphics which display the straw lengths. 


Program Listing 


10 RAND 

20 DIM S(8) 

30 DIM N$(8,10) 

100 FOR P=1 TO 8 

110 PRINT "NAME OF PLAYER" 
120 PRINT "NUMBER OF ";P;" 2" 
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INPUT NS(P) 

LET S(P)=20*RND 
CLS 

NEXT P 

FOR P=1 TO 8 
PRINT NS(P); 
FOR L=g TO S(P) 
PRINT CHRS 128; 
NEXT L 

PRINT 

PRINT 

NEXT р 

IF INKEYS="" THEN GOTO 300 
CLS 

GOTO 10 
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Original HilLo Game 


Here it is. Where everybody started in micro- 
computer programming back in the Seventies. The first 
game ever played was a high-low guess-the-number 
routine. 

The computer selects a secret number. You: try to 
guess it. The computer tells you whether or not you are 
too high, too low, or right on the number. 

Here's how it works: the secret number can be zero 
to 999. Line 100 generates a random number (the secret 
number) and stores it. Line 210 asks you to guess the 
number. 

Lines 300-310 decide if you are right or wrong. Line 
230 keeps track of the number of attempts. 


Program Listing 


10 LET T= 
20 RAND 
100 LET R-INT(1000*RND) 
200 PRINT "GUESS THE NUMBER” 
210 INPUT B 
220 CLS 
230 LET T=T+1 
240 PRINT "THAT WAS TRY NUMBER ";T 
300 IF B>R THEN GOTO 400 
310 IF B<R THEN GOTO 500 
320 IF B=R THEN GOTO 600 
400 PRINT B;" IS TOO HIGH. GUESS AGAIN." 
410 PRINT 


СОТО 200 


PRINT В;" IS TOO LOW. GUESS AGAIN." 
PRINT 

GOTO 200 

PRINT 

PRINT "**X**kkxkkkkkxkkkxn 


PRINT R;" IS THE NUMBER" 

PRINT "***kkkkkXkkkkkkkxkxn 

PRINT "YOU GOT IT IN ";T;" TRIES" 
IF INKEY$-"" THEN GOTO 700 

CLEAR 

CLS 

GOTO 10 
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Now you can draw lines, rules, diagrams, maps, charts, 
boxes—anything you can imagine—on the face of your 
TV set. Use the Computer keyboard as your pen 
and its video output as your ink. 

Lines 120 to 150 accept your up, down, right, or left 
commands, as U,D,R,orL. No other letters will work. 
Line 200 draws your lines. 


Program Listing 


10 CLS 

20 LET X=32 

30 LET Y=22 

40 PLOT X,Y 
100 LET AS=INKEYS 
110 IF AS="" THEN GOTO 100 
120 IF AS="U" THEN LET Y=Y+1 
130 IF AS="D" THEN LET Y=Y-1 


140 
150 
200 
210 
220 


IF AS="R" THEN LET Х=Х+1 
IF AS="L" THEN LET X=X-1 
PLOT X,Y 
LET AS="" 
GOTO 100 
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Whodunit? 


The lord of the manor has been found murdered. The 
butler, the gardener, the nanny all seem guilty. And a 
burglar was on the scene. Whodunit? 

This is a fast-loading game which сап be keyed 
quickly into your Computer. This game will provide tons 
of fun in those spare moments at your work or school 
desk. 


Program Listing 


10 LET AS="CAT BURGLAR" 
20 LET B$="GARDNER" 

30 LET C$="NANNY" 

40 LET D$="BUTLER" 


100 LET S=INT (5*RND) 

110 IF S=1 THEN LET X$=A$ 

120 IF S=2 THEN LET X$=B$ 

130 IF S=3 THEN LET X$=C$ 

140 IF 5-4 THEN LET Х5-05 

150 IF S<1 OR S>4 THEN СОТО 100 
200 PRINT "WHO KILLED THE DUKE?" 


210 
220 
230 
240 
250 
260 
300 
310 
320 
330 
340 
400 
410 
420 
430 
440 
500 
510 


PRINT 

PRINT "WAS IT ТНЕ",,А5,В5,С5,р5 
PRINT 

PRINT "WHODUNIT?" 

INPUT P$ 

IF P$=X$ THEN СОТО 400 

CLS 

PRINT "NO, NOT THE ";P$ 

LET W=W+1 

PRINT 

GOTO 200 

CLS 

PRINT "HOORAY",,"THATS RIGHT" 


PRINT P$;" DID IT" 
LET R=R+1 

PRINT 

PRINT "YOUR SCORE IS" 


PRINT R;" RIGHT ";W;" WRONG" 
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Appendix 


Appendix A: Game Timers 


Event Timer 


Place your computer in a corner and letittime your next 
chess match. Three-minute egg. Final exam. 

The computer asks how many minutes you want forthe 
event you are timing, andthenit notes whenthetime has 
passed. 

You can calibrate the clock by changing thevalueof P 
in line 10. A larger number will slow down the clock. A 
smaller value for P will speed up the clock. As you can see 
we have started with a P value of 16. That works just 
about right on our TIMEX T/S 1000, butitis not necessarily 
right for your machine. 

If you want to time an event of less than one minute, use 
a decimal. For instance, when you want to time a 30-second 
event, respond to the computer's inquiry with .5 or for 45 
seconds key in .75. Use .17 for 10 seconds; .25 for 15 
seconds. 


Program Listing 


10 LET P=16 

20 LET C=9 

30 PRINT "EVENT TIMER" 

40 FOR L=1 TO 11 

50 PRINT "*"; 

60 NEXT L 

70 PRINT 

80 PRINT "HOW MANY MINUTES?" 
90 INPUT T 

100 CLS 


110 PRINT "PRESS ANY KEY TO START TIMING" 


120 IF INKEY$="" THEN GOTO 120 

130 CLS 

140 LET C=C+1 

150 IF C>60*T THEN GOTO 300 

160 LET M=INT(C/60) 

170 LET S=INT(C-(60*M)) 

180 PRINT M;" MINUTES ";S;" SECONDS" 
190 FOR L=1 TO P 

200 NEXT L 

210 GOTO 130 
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300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
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CLS 

PRINT "TIME 1S UP" 

PRINT T;" MINUTES HAVE PASSED" 

FOR L=1 TO 8 

PRINT 

NEXT L 

PRINT "TO TIME AGAIN, PRESS ANY KEY" 
IF INKEYS="" THEN GOTO 370 

CLEAR 

GOTO 10 


Stopwatch 


Now you can leave that chrome-plated stopwatch at 
home next time you travel to your favorite auto or horse 
race. This program turns your TIMEX into a handy 
stopwatch timer using the TV display. 

When you RUN the program, the stopwatch will start 
counting seconds. 

You can adjust the accuracy of the seconds count by 
changing the waitnumber inline 110. Weshowitsetat 
10. To slow down the timer, increase that number. To 
speed up the clock, decrease the number. 


Program Listing 


10 PRINT "NUMBER OF SECONDS" 
20 PRINT "TO BE COUNTED DOWN: " 
30 INPUT S 
40 PRINT S 
50 PRINT 
60 PRINT "PRESS ANY KEY" 
70 PRINT "TO START TIMING" 
80 IF INKEYS="" THEN GOTO 80 
90 CLS 
100 FOR L=S TO 1 STEP -1 
110 PAUSE 10 
120 PRINT L 
130 NEXT L 
140 CLS 
150 PRINT "TIME IS UP" 
160 PRINT S;" SECONDS HAVE ELAPSED" 
170 PRINT 
180 PRINT 
190 GOTO 10 


`. 
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60-Second Timer 


А one-minute timer can be very handy for fun-n- 
games. This easy-to-use clock counts off seconds up 
to 60. 

The number of seconds counted can be changed by 
changing the number 60 in line 40, 

The clock can be calibrated by changing the number 
6 inline 60. Line 60 is a time-delay loop set for approxi- 
mately one second. 


Program Listing 


10 CLS 

20 PRINT 

30 SCROLL 

40 FOR T=1 TO 60 

50 PRINT T;" SECONDS” 
60 FOR L=1 TO 6 

70 SCROLL 

80 NEXT L 

90 NEXT T 
100 PRINT "END OF TIME” 
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Appendix В: Random Numbers 


Every 10th Answer 


This program generates a random number in the 
range of zero to 999. However, it has a difference. It only 
shows you every tenth number it generates. 


Line 20 generates the numbers. Line 40 selects the 
tenth number from each set. 


Program Listing 


10 LET Т-0 

15 LET v=9 

20 LET T=INT(1000*RND) 

30 LET V=V+1 

40 IF (V/10)-INT(V/10) THEN PRINT V,T 
50 GOTO 20 
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Random Sampler 


This program strengthens your confidence in the ran- 
dom number generator built into your TIMEX computer. 

It generates 100 numbers between zero and 100 and 
tells you how many of those are above 49 and how many 
are below 50. See the sample RUN for several sets of 


results in our recent test. 


Program Listing 


10 LET М=@ 

15 LET x=9 

20 LET Y=# 

25 FOR L-1 TO 100 

30 LET X=INT(100*RND) 

35 IF X«50 THEN LET Y=Y+1 
40 IF X>49 THEN LET N=N+1 
45 NEXT L 

50 PRINT Y;" YES" 

55 PRINT N;" NO" 


60 PRINT 

65 GOTO 10 

Sample Run 
51 YES 46 
49 NO 54 
42 YES 52 
58 NO 48 
56 YES 48 
44 ΝΟ 52 
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YES 
NO 


YES 
NO 


YES 
NO 


Random Numbers:Zero To Nine 


Although you see four program lines below, what we 
really have here is a very convenient single-line program 
for you to insert in a larger game or educational-testing 
program. 

Line 20 is the winner here. It prints a random number 
from zero to nine every time. For your use here, we print 
that number on the screen. You could just as easily have 
the computer store that random number in a memory 
location for later recall and use. 

We have added lines 10, 30 and 40 to make your 
TIMEX show you a whole series of random numbers from 
zero to nine. Remember, line 20 is the important single- 
line program element here. 

If you would like random numbers in the range from 
zero to 99, make it 100" in line 20. For zero to 999, use 
1000“ in line 20. 


Program Listing 
10 RAND 
20 PRINT INT (10*RND) 


30 PAUSE 100 
40 GOTO 20 
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Random Numbers: Distribution 


Ever wonder how “random” are the numbers 
generated by the random-number generator in your 
TIMEX when you use the RND instruction? Try this pro- 
gram. 

It generates 100 random numbers in a range from 
zero to four and counts how many there are of each 
number between zero and four. 

By the way, while it is doing that it will display the 
message “counting” so you can tell it is working. 

At the end of its run, the TIMEX prints a neat chart, 
on the video display, of results. See our sample run. 


Program Listing 


10 CLEAR 

20 RAND 

30 LET N=# 

40 LET Т=@ 

50 DIM A(5) 

60 FOR L=1 TO 100 

70 PRINT "COUNTING" 

80 LET N=INT(5*RND) 

90 IF N= THEN LET A(1)=A(1)+1 
100 IF N=l THEN LET A(2)=A(2)+1 
110 IF N-2 THEN LET A(3)=A(3)+l 
120 IF N=3 THEN LET A(4)=A(4)+1 
130 IF N=4 THEN LET A(5)=A(5)+1 
140 CLS 
150 NEXT L 
160 FOR L=1 TO 5 
170 LET T=T+A(L) 

180 PRINT L-1,A(L) 
190 NEXT L 
200 PRINT "TOTAL",T 


Sample Run 


COUNTING 


0 

1 

2% 

3: 16 
4: 6 
C 


OUNTING 


кого 
E 
E 
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Random Numbers: Averages 


This program generates 100 random numbers and 


totals them. Then it finds the average of all 100 numbers. 


dom 


In fact, the average number itself is a useful new ran- 
number. 


Program Listing 


LET А-й 

LET N=@ 

LET T=g 

FOR L=1 TO 100 

PRINT "AVERAGING" 

LET N=INT(10*RND) 

LET T=T+N 

CLS 

NEXT L 

LET A=T/100 

PRINT "RANDOM NUMBERS TOTAL ";T 
PRINT "AVERAGE NUMBER IS ”;A 


Sample Run 
AVERAGING 


RANDOM NUMBERS TOTAL 444 
AVERAGE NUMBER IS 4.44 


AVERAGING 


RANDOM NUMBERS TOTAL 424 
AVERAGE NUMBER IS 4.24 
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Random Numbers: 
Sorting High/Low 


It's important to be able to sort a group of numbers to 
see what the highest and lowest values are. This program 
does that. 

The random number generator is in line 30. It gives 
numbers in a range of zero to 999. Line 50 determines the 
lowest number in the set and line 60 finds the highest 
number. 


Program Listing 


10 LET Н-Й 

15 LET L-# 

20 LET N=g 

25 FOR А=1 TO 100 

30 LET N=INT(1000*RND) 

35 IF A=1 THEN LET L-N 

40 IF A=1 THEN LET H=N 

45 PRINT "SORTING" 

50 IF N<L THEN LET L=N 

60 IF N>H THEN LET H= 

70 CLS 

80 NEXT A 

90 PRINT "LOW NUMBER IS ";L 
100 PRINT "HIGH NUMBER IS ";H 


Sample Run 


SORTING 


LOW NUMBER IS 32 
HIGH NUMBER IS 983 


LOW NUMBER IS 14 
HIGH NUMBER IS 980 


LOW NUMBER IS 17 
HIGH NUMBER IS 985 
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Random Number 
Quality Checker 


Ever wonder just how unintentional, haphazard, or 
unrelated your random numbers are? This program rein- 
forces your confidence in the pseudorandom number 
generator in the TIMEX Computer. 

lt causes the machine to generate 100 numbers bet- 
ween zero and 100 and reports how many are above 49 and 
how many are below 50. 


Program Listing 


10 LET N-g 

15 LET X=g 

20 LET Y-g 

25 FOR L-1 TO 100 

30 LET X-INT(100*RND) 

35 IF X«50 THEN LET ΥΞΥ ΕΙ 
40 IF X549 THEN LET N=N+1 
45 NEXT L 

50 PRINT Y;" BELOW 50" 

55 PRINT N;" ABOVE 49" 

60 PRINT 

65 GOTO 10 


Ever wonder how "random" are the numbers 
generated by the random-number generator in your 
TIMEX when you use the RND instruction? Try this pro- 
gram. 

It generates 100 random numbers in a range from 
zero to four and counts how many there are of each 
number between zero andfour. 

By the way, while it is doing that it will display the 
message “counting” so you can tell it is working. 

At the end of its run, the TIMEX prints a neat chart, 
on the video display, of results. 
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Program Listing 


CLEAR 
RAND 

LET N=g 

LET T=g 

DIM A(5) 

FOR L=1 TO 100 
PRINT "COUNTING" 
LET N=INT(5*RND) 
IF N=4 THEN LET 
IF N=1 THEN LET 
IF N=2 THEN LET 
IF N=3 THEN LET 
IF N=4 THEN LET 
CLS 

NEXT L 

FOR L=1 TO 5 
LET T=T+A(L) 
PRINT L-1,A(L) 
NEXT L 

PRINT "TOTAL",T 


A(1)=A(1)+1 
A(2)=A(2)+1 
A(3)=A(3)+1 
A(4)=A(4)+1 
A(5)=A(5)+1 
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Appendix С: Dice Roll 


Traditional Dice Roll 


Here's a simple, brief way to roll and display results 
for two dice. 

Lines 100-110 get a random number between 1 and 6 
and store it in A. Lines 200-210 get another random 
number from 1 to 6 and store it in B. 

Lines 300-310 print the contents of A and B along 
with a suitable message. Lines 400-420 cause the com- 
puter to await the press of any key on its keyboard. When 
a key is pressed, dice are rolled and new results 
presented on the video display. 


Program Listing 


10 RAND 

100 LET A=INT(10*RND) 

110 IF А<1 OR A>6 THEN GOTO 100 
200 LET B=INT(10*RND) 

210 IF B«1 OR B>6 THEN GOTO 200 
300 PRINT "FIRST DICE: ",A 
310 PRINT "SECOND DICE: ",B 
400 IF INKEYS="" THEN GOTO 400 
410 CLS 
420 GOTO 100 
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See Two Dice 


Here's a quick way to add real dice to any fun pro- 
gram you are designing for your computer. 

This program rolls two dice and lets you see the 
results, as with real dice. This is especially useful in 
those games where it is important to see the value of 
each. 

The subroutine in lines 100-140 generates the 
necessary pair of random numbers. Lines 60, 70 and 80 
make the display you want. 

Note that lines 60 and 80 each have nine asterisks. 
Line 150 is RETURN and must be the last line in the pro- 
gram. я 
After you type in and RUN the program, press any key 
on your computer 's keyboard to roll the dice. 


Program Listing 


10 CLS 

20 PRINT"TO ROLL 2 DICE, PRESS ANY KEY" 
30 IF INKEYS="" THEN GOTO 30 
40 CLS 

50 GOSUB 100 

60 PRINT" AA Asa" 

70 PRINT"* ";1;" κ ";R;" x" 
80 PRINT" & £ £ £ £ £ k * + 

90 PRINT 

95 GOTO 20 

100 RAND 

110 LET L=INT(7*RND) 

120 IF L«1 THEN GOTO 110 

130 LET R=INT(7*RND) 

140 IF Е<1 THEN GOTO 130 

150 RETURN 
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See Four Dice 


Two dice not enough for your game? Here's how to 


see four dice after a roll! 


Naturally, this program works just like the previous 


program except that the FORINEXT loop in lines 50- 
90 makes the computer roll and display four times rather 
than two times. If you need six, eight or ten dice on 
display, change the number two in line 50 to three, four or 


five. 


Program Listing 


90 


CLS 

PRINT"TO ROLL 4 DICE, PRESS ANY KEY" 
IF INKEY$="" THEN GOTO 30 

CLS 

FOR A=1 TO 2 

GOSUB 100 

PRINT"***xxXkkk" 

PRINT"* ";L;" * ";R;" *" 
PRINT"***xxxxx" 


PRINT 


LET L-INT(7*RND) 

IF L«1 THEN GOTO 110 
LET R-INT(7*RND) 

IF R«1 THEN GOTO 130 
RETURN 


Appendix О: BASIC Words 


Here is a convenient list, with short explanations, of each 
of the BASIC language words as used by Sinclair in the 
ZX-81 and in the TIMEX/Sinclair 1000 computer: 
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Functions 


absolute value of a number 
arccosine 

logical AND 

arcsine 

arctangent 


changes 0 to 255 number to a character 


number of first character in a string 
cosine 

exponent 

scans keyboard 

integer part of number 

length of a string 

natural logarithm 

logical NOT 

logical OR 

look at one memory-address location 
3.14159265 

random-number generator 

sign of a number 

sine 

square root 

change numerical value to string 
tangent 

call machine-language routine 
change string to number 
addition of number or strings 
subtraction 

multiplication 

division 

raising to a power 

equals 

greater than 

less than 

less than or equal to 

greater than or equal to 

not equal to 


UNPLOT 


Statements 


clears variables 

clears screen 

continue after STOP 

copy TV screen on printer 

dimensions numerical array 

dimensions string array 

starts fast mode of TV display 

first part of FOR/NEXT loop 

jump to subroutine 

jump to a line 

first part of IF/THEN decision maker 
stops so data can be entered 

assigns a value to a variable 

displays program list on TV screen 
displays program list on printer 

transfers program from tape into computer 
PRINT on printer 

erases all of program memory and variables 
last part of FOR/NEXT loop 

holds TV display on for brief delay 

blacks in a graphics-screen dot 

writes in one memory-address location 
displays on TV screen 

reseeds random-number generator 
statement ignored during run 

end of GOSUB, jump back to main routine 
clears variables and starts program action 
records program from computer onto tape 
rolls TV display up a line 

switches to slower display mode 

optional part of FOR/NEXT loop 
temporary halt in a run 

PRINT at a certain place on TV display 
last part of IFITHEN decision maker 
follows FOR in FOR/NEXT loop 

blanks out a graphics-screen dot 
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Appendix E: Error Messages 


This is a list of what Sinclair calls Report Codes and what 
you may refer to as error messages. These are notes to 
you from the computer about mistakes you may have 
made and about the status of the computer: 


Code Description 
Number! of Error 
Letter or Status 


successful completion 


1 you have a NEXT without a matching FOR 

2 you forgot to use LET or DIM or your FOR 
variable wrong 

3 a subscript is wrong 

4 there’s not enough memory space for what 
you want to do 

5 the TV screen is full 

6 you have computed too large a number 

7 you have a RETURN without a matching 
GOSUB 

8 INPUT can only be used in a program line 

9 CONT can't restart at STOP 

A you are not using the function correctly 

B an integer is out of range 

С you can't VAL that string 

D you used BREAK tointerrupta run or you are 


using STOP in an INPUT line 
there is no such program name 


n 
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Computer books from ARCsoft Publishers 


For the TIMEX/Sinclair 1000, Sinclair ZX-81 and MicroAce: 
Practical TIMEX/Sinclair Computer Programs for Beginners 


Edward Page $7.95 ISBN 0-86668-027-6 
101 TIMEX 1000/Sinclair ZX-81 Programming Tips 8 Tricks 

Edward Page $7.95 ISBN 0-86668-020-9 
TIMEX/Sinclair Computer Games Programs 

Edward Page $7.95 ISBN 0-86668-026-8 
37 TIMEX 1000/Sinclair ZX-81 Programs for Home, School 8 Office 
Edward Page $8.95 ISBN 0-86668-021-7 
TIMEX/Sinclair Computer Program Writing Workbook 

Edward Page $4.95 ISBN 0-86668-810-2 


For the Texas Instruments TI-99/4A Home Computer: 
101 Programming Tips 8 Tricks for the Texas Instruments Tl-99/4A 
Len Turner $8.95 ISBN 0-86668-025-X 


36 Texas Instruments Tl-99/4A Programs for Home, School 8 Office 
Len Turner $8.95 ISBN 0-86668-024-1 


Texas Instruments Computer Program Writing Workbook 
Len Turner $4.95 ISBN 0-86668-812-9 


For the VIC-20 and Commodore computers: 
101 Programming Tips 8 Tricks for the VIC-20 


Howard Adler $8.95 ISBN 0-86668-030-6 
34 VIC-20 Computer Programs for Home, School 4 Office 

Howard Adler $8.95 ISBN 0-86668-029-2 
VIC-20 Computer Program Writing Workbook 

Howard Adler $4.95 ISBN 0-86668-811-0 


For the ATARI 400, 600, 800, 1200XL computers: 
101 ATARI Computer Programming Tips 4 Tricks 


Alan North $8.95 ISBN 0-86668-022-5 
31 New ATARI Computer Programs for Home, School 8 Office 

Alan North $8.95 ISBN 0-86668-018-7 
ATARI Computer Program Writing Workbook 

Alan North $4.95 ISBN 0-86668-814-5 


For thé TRS-80 Color Computer and TDP-100 computers: 
Color Computer Graphics 


Ron Clark $9.95 ISBN 0-86668-012-8 
101 Color Computer Programming Tips 4 Tricks 

Ron Clark $7.95 ISBN 0-86668-007-1 
55 Color Computer Programs for Home School 8 Office 

Ron Clark $9.95 ISBN 0-86668-005-5 
55 MORE Color Computer Programs for Home, School & Office 

Ron Clark $9.95 ISBN 0-86668-008-X 
The Color Computer Songbook 

Ron Clark $7.95 ISBN 0-86668-011-X 
TRS-80 Color Computer Program Writing Workbook 

Ron Clark $4.95 ISBN 0-86668-816-1 
My Buttons Are Blue and Other Love Poems 

Edited by Ron Clark $4.95 ISBN 0-86668-013-6 
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For the APPLE and Franklin ACE computers: 
101 APPLE Computer Programming Tips 8 Tricks 


Fred White $8.95 ISBN 0-86668-015-2 
33 New APPLE Computer Programs for Home, School 8 Office 

Fred White $8.95 ISBN 0-86668-016-0 
APPLE Computer Program Writing Workbook 

Fred White $4.95 ISBN 0-86668-813-7 


For the TRS-80, Sharp and Casio Pocket Computers: 
Practical PC-2/PC-1500 Pocket Computer Programs 


Jim Cole $7.95 ISB N 0-86668-028-4 
Pocket Computer Programming Made Easy 

Jim Cole $8.95 ISB N 0-86668-009-8 
99 Tips & Tricks for the New Pocket Computers 

Jim Cole $7.95 ISB N 0-86668-019-5 
101 Pocket Computer Programming Tips & Tricks 

Jim Cole $7.95 ISBN 0-86668-004-7 
Murder In The Mansion and Other Computer Adventures—2nd Edition 
Jim Cole $6.95 ISBN 0-86668-501-4 
50 Programs in BASIC for Home, School & Office—2nd Edition 

Jim Cole $9.95 ISBN 0-86668-502-2 
50 MORE Programs in BASIC for Home, School & Office 

Jim Cole $9.95 ISB N 0-86668-003-9 
Pocket Computer Program Writing Workbook 

Jim Cole $4.95 ISB N 0-86668-817-X 
35 Practical Programs for the CASIO Pocket Computer 

Jim Cole $8.95 15В N 0-86668-014-4 


For the TRS-80 Model | and Model ІІ! computers: 
TRS-80 Model I/III Computer Program Writing Workbook 
Mark Lewis $4.95 ISBN 0-86668-815-3 


For the IBM Personal Computer: 

IBM Personal Computer Program Writing Workbook 

George Bridges $4.95 ISBN 0-86668-818-8 
Universal for use with any computer system: 

Universal BASIC Computer Program Writing Workbook 

Don Roberts $4.95 ISBN 0-86668-819-6 


ISBN: International Standard Book Number 
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TIMEX/Sinclair 
Computer Games Programs 


by Edward Page 
2 БЕ 

Adventure games. Space games. Number games. Memory 
games. This brand-new book of BASIC software for the TIMEX/Sinclair 
personal computers is loaded with exciting, tested, ready-to-run pro- 
grams especially written for the T/S 1000, ZX-81 and MicroAce. 

Blast your way through a string of meteoroids and fight off alien 
hordes as you zip through deep space in Saturn Death. 

Unscramble an egg. Test your memory against tne electronic 
expert. Dip into a barrel of apples. Search for the mysterious Black 
Pearl of the orient. Track down the African Lost Safari. 

Imagine you are Hercule Poirot or Inspector Craddock as you un- 
wind the tangled web of death in Murder In The Mansion, a powerful 
drama of maids, butlers, nannies set in an old English manor with an 
Agatha Christie-style tale. 

All of these and more are among the two dozen freshly written 
programs in TIMEX/Sinclair BASIC, each thoroughly tested on the TIS 
1000 and ZX-81 and ready to type in and run. 

Even if you don't own the T/S 1000 or ZX-81, you still can play 
these exciting games with only minor adaptations to whatever com- 
puter system you operate. i 

If you use the colorful new T/S 2000 or Sinclair Spectrum, you | 
want to add exciting graphics to these fun game programs. The pro- 
grams in this book will run without modification on any computer 
which is programmable in Sinclair BASIC. 

You, your family, your neighbors and friends. Everybody will find 
hours of fun running and rerunning these challenging games: Saturn 
Death, Klingon Killer, Memory Test, Lost Safari, Fractured Descrip- 
tions, Buried Treasure, Murder In The Mansion, The Black Pearl, 
Scrambled Egg, Barrel of Apples, Wood Chuck Chuck, Whodunit?, 
Parameters, Craps, Memory Tester, Old West Shootout, Decision 
Maker, Smart Computer, and Game Timer. 
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